home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / pc / install.awk < prev    next >
Encoding:
AWK Script  |  1996-01-10  |  1.9 KB  |  62 lines
  1. # install.awk 
  2. # awk script to handle "make install". Goal is to eliminate need for
  3. # extra utilities (such as sh, mkdir, and cp). This is a hack.
  4.  
  5. function mkinstalldirs(dir,  i, ii, j, jj, s, comp, mkdir)
  6. {
  7.   gsub("/", "\\", dir); ii = split(dir, s, " ")
  8.   print "@echo off" > install_bat
  9.   print "@echo off" > install_cmd
  10.   for (i = 1; i <= ii; i++) {
  11.     jj = split(s[i], comp, "\\"); dir = comp[1];
  12.     for (j = 1; j <= jj; dir=dir "\\" comp[++j]) {
  13.       if (substr(dir, length(dir)) == ":" || mkdir[dir]) continue;
  14.       printf("if not exist %s\\*.* mkdir %s\n", dir, dir) > install_bat
  15.       printf("if not exist %s\\* mkdir %s\n", dir, dir) > install_cmd
  16.       mkdir[dir] = 1
  17.     }
  18.   }
  19.   close(install_bat); close(install_cmd)
  20.   system(install)
  21. }
  22.  
  23. function cp(s,  j, n, comp)
  24. {
  25.   gsub("/", "\\", s); n = split(s, comp, " ");
  26.   print "@echo off" > install_bat
  27.   print "@echo off" > install_cmd
  28.   for (j = 1; j < n; j++) {
  29.     printf("copy %s %s\n", comp[j], comp[n]) > install_cmd
  30.     if (substr(comp[j], length(comp[j]), 1) == "*")
  31.       comp[j] = comp[j] ".*"
  32.     printf("copy %s %s\n", comp[j], comp[n]) > install_bat
  33.   }
  34.   close(install_bat); close(install_cmd)
  35.   system(install)
  36. }
  37.     
  38. BEGIN{
  39. install = "installg"
  40. install_bat = install ".bat"; install_cmd = install ".cmd"
  41. igawk_cmd = prefix "/bin/igawk.cmd"
  42. igawk_bat = prefix "/bin/igawk.bat"
  43. igawk = "pc/awklib/igawk"
  44.  
  45. # Make the bin directory
  46. mkinstalldirs(prefix "/bin");
  47.  
  48. # Create igawk.cmd for OS/2
  49. printf("extproc sh %s/bin/igawk.cmd\nshift\n", prefix) > igawk_cmd
  50. while (getline < igawk) print $0 > igawk_cmd
  51.  
  52. # Create igawk.bat for DOS
  53. printf("@sh %s/bin/igawk %%1 %%2 %%3 %%4 %%5 %%6 %%7 %%8 %%9", prefix) > igawk_bat
  54.  
  55. # Do common
  56. cp(igawk " gawk.exe " prefix "/bin")
  57. mkinstalldirs(prefix "/lib/awk " prefix "/man/man1 " prefix "/info")
  58. cp("awklib/eg/lib/* pc/awklib/igawk.awk " prefix "/lib/awk");
  59. cp("doc/*.1 " prefix "/man/man1");
  60. cp("doc/gawk.info " prefix "/info");
  61. }
  62.